home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / lisp / kcl_tar.z / kcl_tar / attport / init_kcn.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1986-03-12  |  792 b   |  20 lines
  1. (in-package "COMPILER")
  2. (in-package "SYSTEM")
  3. (in-package "USER")
  4. (in-package "LISP")
  5. (in-package "USER")
  6. (progn (allocate 'cons 90) (system:init-system) (gbc t)
  7.  (setq system::*old-top-level* (symbol-function 'system:top-level))
  8.  (defun system::kcl-top-level nil
  9.   (when (> (system:argc) 1)
  10.         (setq system:*system-directory* (system:argv 1)))
  11.   (format t "KCl (Kyoto Common Lisp)  ~A~%" "Feburary 13, 1986")
  12.   (in-package 'system::user) (funcall system::*old-top-level*))
  13.  (defun lisp-implementation-version nil "Feburary 13, 1986")
  14.  (setq *modules* nil) (gbc t) (system:reset-gbc-count)
  15.  (allocate 'cons 200)
  16.  (defun system:top-level nil (system::kcl-top-level))
  17.  (system:save-system "saved_kcn") (bye)
  18.  (defun system:top-level nil (system::kcl-top-level))
  19.  (save "saved_kcn") (bye))
  20.